home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / tritonblitz / memo.bb2 < prev    next >
Text File  |  1996-02-04  |  913b  |  54 lines
  1. ;
  2. ; Memo
  3. ; use this source as you like
  4. ; written by Philipp Lonke
  5. ;
  6.  
  7. INCLUDE "blitz2:bbincludes/libraries/triton.bb2"
  8. NoCli
  9.  
  10. Dim para$(2)
  11. If NumPars>=2
  12.   For i=1 To 2
  13.     para$(i)=Par$(i)
  14.   Next
  15. Else
  16.   End
  17. EndIf
  18.  
  19. *application.TR_App=0
  20.  
  21. Dim apptags.TagItem(5)
  22. Dim reqtags.TagItem(10)
  23.  
  24. apptags(1)\ti_Tag=#TRCA_Name,Null("Memo")
  25. apptags(2)\ti_Tag=#TRCA_LongName,Null("Memo - the informer")
  26. apptags(3)\ti_Tag=#TRCA_Version,Null("1.0")
  27. apptags(4)\ti_Tag=#TAG_END,0
  28.  
  29. reqtags(1)\ti_Tag=#TAG_DONE,0
  30.  
  31. *application=TR_CreateApp_(&apptags(1))
  32.  
  33. If (*application)
  34.  
  35.   body$="%b"+para$(1) ; Bold text
  36.   body$+Chr$(9)          ; Add a tab char for a 3d separator line
  37.   body$+"%3"+para$(2)    ; 3d text
  38.  
  39.   gads$="_OK"
  40.  
  41.   result=TR_EasyRequest_(*application,Null(body$),Null(gads$),&reqtags(1))
  42.  
  43.   *trmsg.TR_Message=TR_GetMsg_(*application)
  44.  
  45.   TR_DeleteApp_ *application
  46.  
  47. Else
  48.   NPrint "Unable to create application"
  49. EndIf
  50.  
  51. End
  52.  
  53.  
  54.